home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / TONEGAME.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.3 KB  |  39 lines
  1. 100  '****************************************************
  2. 110  '**                     TONE MATCH                 **
  3. 120  '**  NOVEMBER 24, 1982                VERSION 2.0  **
  4. 130  '****************************************************
  5. 140  '
  6. 150  RANDOMIZE : CLS : SCREEN 1
  7. 160  LOCATE 10,15 : PRINT "TONE MATCH"
  8. 170  DIM A(100)
  9. 180  COUNTER = 1
  10. 190  A(COUNTER) = INT(RND*4+1)
  11. 200  TEMPO = 5-COUNTER/4 : IF TEMPO < 2 THEN TEMPO = 2
  12. 210  GOSUB 410  '**********  PRINT LIST OF SOUNDS AND NUMBERS
  13. 220  '
  14. 230  '*********************  ROUTINE TO ACCEPT GUESS
  15. 240  FOR X = 1 TO COUNTER
  16. 250  B$ = INKEY$ : IF B$ = "" THEN 250 ELSE B = VAL(B$)
  17. 260  IF A(X) <> B THEN SOUND 50,30 : GOTO 350
  18. 270  SOUND 250+250*A(X),TEMPO
  19. 280  NEXT
  20. 290  COUNTER = COUNTER + 1
  21. 300  SOUND 25000,25
  22. 310  IF COUNTER > 32 THEN FOR X = 40 TO 2000 STEP 10:SOUND X,1:NEXT:GOTO 180
  23. 320  GOTO 190   '**********  GOOD SEQUENCE, CONTINUE ON
  24. 330  '
  25. 340  '*********************  INCORRECT INPUT HANDLEING SECTION
  26. 350  SOUND 25000,25     '**
  27. 360  GOSUB 410          '**  PRINT LIST OF SOUNDS AND NUMBERS
  28. 370  SOUND 25000,25     '**
  29. 380  GOTO 180           '**  START OVER
  30. 390  '
  31. 400  '*********************  ROUTINE TO PRINT NUMBERS AND CREATE SOUNDS
  32. 410  FOR X = 1 TO COUNTER
  33. 420  SOUND 250+250*A(X),TEMPO
  34. 430  LOCATE 12,A(X)*2+14 : PRINT A(X);
  35. 440  SOUND 25000,TEMPO
  36. 450  LOCATE 12,14 : PRINT "                   "
  37. 460  NEXT
  38. 470  RETURN
  39.